Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fastwe1a / frmfav.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1999-10-19 | 24.1 KB | 766 lines

VERSION 5.00 Begin VB.Form frmFav BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Favorites" ClientHeight = 4605 ClientLeft = 45 ClientTop = 330 ClientWidth = 10290 Icon = "frmFav.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4605 ScaleWidth = 10290 StartUpPosition = 3 'Windows Default Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 9 Left = 7320 MaxLength = 12 TabIndex = 19 Top = 3720 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 9 Left = 720 MaxLength = 50 TabIndex = 18 Top = 3720 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 8 Left = 7320 MaxLength = 12 TabIndex = 17 Top = 3360 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 8 Left = 720 MaxLength = 50 TabIndex = 16 Top = 3360 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 7 Left = 7320 MaxLength = 12 TabIndex = 15 Top = 3000 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 7 Left = 720 MaxLength = 50 TabIndex = 14 Top = 3000 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 6 Left = 7320 MaxLength = 12 TabIndex = 13 Top = 2640 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 6 Left = 720 MaxLength = 50 TabIndex = 12 Top = 2640 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 5 Left = 7320 MaxLength = 12 TabIndex = 11 Top = 2280 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 5 Left = 720 MaxLength = 50 TabIndex = 10 Top = 2280 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 4 Left = 7320 MaxLength = 12 TabIndex = 9 Top = 1920 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 4 Left = 720 MaxLength = 50 TabIndex = 8 Top = 1920 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 3 Left = 7320 MaxLength = 12 TabIndex = 7 Top = 1560 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 3 Left = 720 MaxLength = 50 TabIndex = 6 Top = 1560 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 2 Left = 7320 MaxLength = 12 TabIndex = 5 Top = 1200 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 2 Left = 720 MaxLength = 50 TabIndex = 4 Top = 1200 Width = 6495 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 1 Left = 7320 MaxLength = 12 TabIndex = 3 Top = 840 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 1 Left = 720 MaxLength = 50 TabIndex = 2 Top = 840 Width = 6495 End Begin VB.Timer Timer1 Interval = 200 Left = 0 Top = 4200 End Begin VB.CommandButton cmdSave Caption = "&Save Changes" Height = 255 Left = 7920 TabIndex = 20 Top = 4200 Width = 2055 End Begin VB.TextBox txtTitle Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 0 Left = 7320 MaxLength = 12 TabIndex = 1 Text = "WrestleBoard" Top = 480 Width = 2655 End Begin VB.TextBox txtLink Alignment = 2 'Center BackColor = &H00404040& BorderStyle = 0 'None BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Index = 0 Left = 720 MaxLength = 50 TabIndex = 0 Top = 480 Width = 6495 End Begin VB.Label Label11 Alignment = 2 'Center BackColor = &H00000000& Caption = "Display" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 7320 TabIndex = 32 ToolTipText = "Refresh" Top = 120 Width = 2775 End Begin VB.Label Label10 Alignment = 2 'Center BackColor = &H00000000& Caption = "Direct URL" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 720 TabIndex = 31 ToolTipText = "Refresh" Top = 120 Width = 6495 End Begin VB.Label Label9 Alignment = 2 'Center BackColor = &H00000000& Caption = "10" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 30 ToolTipText = "Refresh" Top = 3720 Width = 495 End Begin VB.Label Label8 Alignment = 2 'Center BackColor = &H00000000& Caption = "9" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 29 ToolTipText = "Refresh" Top = 3360 Width = 495 End Begin VB.Label Label7 Alignment = 2 'Center BackColor = &H00000000& Caption = "8" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 28 ToolTipText = "Refresh" Top = 3000 Width = 495 End Begin VB.Label Label6 Alignment = 2 'Center BackColor = &H00000000& Caption = "7" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 27 ToolTipText = "Refresh" Top = 2640 Width = 495 End Begin VB.Label Label5 Alignment = 2 'Center BackColor = &H00000000& Caption = "6" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 26 ToolTipText = "Refresh" Top = 2280 Width = 495 End Begin VB.Label Label4 Alignment = 2 'Center BackColor = &H00000000& Caption = "5" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 25 ToolTipText = "Refresh" Top = 1920 Width = 495 End Begin VB.Label Label3 Alignment = 2 'Center BackColor = &H00000000& Caption = "4" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 24 ToolTipText = "Refresh" Top = 1560 Width = 495 End Begin VB.Label Label2 Alignment = 2 'Center BackColor = &H00000000& Caption = "3" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 23 ToolTipText = "Refresh" Top = 1200 Width = 495 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00000000& Caption = "2" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 22 ToolTipText = "Refresh" Top = 840 Width = 495 End Begin VB.Label lblRefresh Alignment = 2 'Center BackColor = &H00000000& Caption = "1" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 285 Left = 120 TabIndex = 21 ToolTipText = "Refresh" Top = 480 Width = 495 End Attribute VB_Name = "frmFav" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdSave_Click() 'set to false, things haven't changed bHasChanged = False 'save the changes Open App.Path & "\favorites.web" For Random As #1 Len = Len(Fav) For X = 1 To 10 Fav.URL = frmFav.txtLink(X - 1).Text Fav.Title = frmFav.txtTitle(X - 1).Text Put #1, X, Fav Next X Close #1 'load the favorites into the main window gLoadFavorites 'unload the favorites screen Unload frmFav End Sub Private Sub Form_Unload(Cancel As Integer) 'unload the favorites screen Unload frmFav End Sub Private Sub Timer1_Timer() 'if the favorites have changed, enable the save button If bHasChanged = True Then cmdSave.Enabled = True Else cmdSave.Enabled = False End If End Sub Private Sub txtLink_Change(Index As Integer) 'set the changed flag so that the timer will enable the save 'button bHasChanged = True End Sub Private Sub txtTitle_Change(Index As Integer) 'set the changed flag so that the timer will enable the save 'button bHasChanged = True End Sub